home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
twars.arc
/
LOOKSECT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-28
|
2KB
|
80 lines
program looksect(input,output);
type
user = record
fa : string[41];
fareal : string[41];
fb,fc,fd,fe,ff,fg : integer;
fh,fi,fj,fk,fl,fr,fp : integer;
fm,fo,fq,ft,fv : integer;
doorpts : real;
end;
var
userf : file of user;
userrec : user;
usert : user;
ans : char;
sect : integer;
done : boolean;
newff,
newfg,
newfo : integer;
begin
assign(userf,'twdata.dat');
reset(userf);
clrscr;
done := FALSE;
while not done do
begin
write('Which record ');
readln(sect);
if sect = 0 then done := TRUE;
seek(userf,sect);
read(userf,userrec);
writeln('Name -> ',userrec.fa);
writeln('N-Real > ',userrec.fareal);
with userrec do
begin
writeln('Fb reg ',fb);
writeln('Fc reg ',fc);
writeln('Fd reg ',fd);
writeln('Fe reg ',fe);
writeln('Ff reg ',ff);
writeln('Fg reg ',fg);
writeln('Fh reg ',fh);
writeln('Fi reg ',fi);
writeln('Fj reg ',fj);
writeln('Fk reg ',fk);
writeln('Fl reg ',fl);
writeln('Fr reg ',fr);
writeln('Fp reg ',fp);
writeln(' Fm reg ',fm);
writeln('Fo reg ',fo);
writeln('Fq reg ',fq);
writeln('Ft reg ',ft);
writeln('Fv reg ',fv);
writeln('Doorpts ',doorpts);
end;
if NOT done then
begin
write('Zap it? ');
readln(newff);
if newff = 1032 then
begin
userrec.fp :=0;
userrec.ft :=0;
seek(userf,sect);
write(userf,userrec);
end;
end;
end;
close(userf);
end.